home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 13
/
013.d81
/
order form
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
676b
|
23 lines
0 remsave"order form",8
10 print"[147][155]":poke53281,0:poke53280,4:
15 s$ =" "
18 t$=s$:gosub60000
20 t$=" [204][207][193][196][211][212][193][210][160]order forms menu ":gosub60000
28 t$=s$:gosub60000:print
30 print" 1 = [211]ubscribe to [204][207][193][196][211][212][193][210]":print
40 print" 2 = [211]ubscribe to [208][207][215][197][210][160][208][204][193][217]/"
50 print" [160][195][207][205][205][207][196][207][210][197][160][205][201][195][210][207][195][207][205][208][213][212][197][210][211]":print
60 print" 3 = [207]ther [204][207][193][196][211][212][193][210][160]products.":print
70 print" 4 = back to [204][207][193][196][211][212][193][210]"
100 getk$:ifk$<"1"ork$>"4"then100
200 onval(k$)goto1000,2000,3000,4000
1000 p$="order blank-ls":goto63000
2000 p$="order blank-pa":goto63000
3000 p$="order blank-pr":goto63000
4000 p$="hello":goto63000
50000 end
60000 printtab(20-len(t$)/2);t$:return
63000 rem connections
63010 print"[147]load"chr$(34)p$chr$(34)",8":print"run"
63020 poke631,13:poke632,13:poke198,2:end